A running Banner

Made by Thales Fernandes.

texto = "Caroline é a pessoa mais legal desse mundinho. E \
Thales gosta dela mais do que tudo nesse mundo!!";
tamanho = 22;
b = 
        ToCharacterCode[
          FromCharacterCode[Table[32, {tamanho + 1}]] <> texto <> 
            FromCharacterCode[Table[32, {tamanho + 1}]]];
c = 
        Table[FromCharacterCode[
            b[[Table[
                First[{n + r}], {r, 0, tamanho}]]]], {n, 
            1, Length[b] - tamanho}];
Off[Show::"gcomb"]
<< "Graphics`Legend`"
Table[Show[
            Graphics[
              Legend[{{{0, 1}, 
                    StyleForm[c[[w]], 
                      FontFamily -> "Times", FontSize -> 25, 
                      FontWeight -> "Plain"]}}, 
                LegendShadow -> {0, 0}, 
                LegendTextOffset -> {-0.25, 0}, 
                LegendSize -> {1.0, 0.2}]]];, {w, 1, 
          Length[c]}];

I'm  From Brasil. So, I Type something in portugues.
texto is the text you want to make a banner.
tamanho is the length of the banner, how many words will appear.
first. this notebook convert the text to a character code with spaces on the begening and end of the text.
after make a list with the length of the text you want, 22. changing the element on te list by n+1. the list is running.
and then we convert it to a characteres, strings.
show it whit the function legend with this options.
just change the test and the length.